home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / comm / ums / IntuiNews1_4a.lha / UMS / Rexx / Filer.intui < prev    next >
Text File  |  1995-10-04  |  1KB  |  71 lines
  1. /*
  2.  
  3.     $VER: Filer.intui 1.0 (27.8.95)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Function:
  9.     Handles the file attached to a message with Filer.
  10.  
  11.    History:
  12.     0.1   initial version
  13.     0.2   uses new "EXEC" command
  14.     1.0   released with IntuiNews 1.3
  15.     1.1   fixed problem with filenames with spaces
  16.  
  17.    Requires:
  18.     UMSServer 11.28 or newer
  19.     ums.library 11.18 or newer
  20.     Filer 3.20 or newer
  21.  
  22.    Example for "ums.config":
  23.     ( IntuiNews.Rexx
  24.     ...
  25.         "#?Message F2 Filer.intui\n"
  26.     ...
  27.     )
  28.  
  29. */
  30.  
  31. /* Get TEMPORARY filename. */
  32.  
  33. OPTIONS RESULTS
  34.  
  35. GETTEMPFILENAME
  36. IF RESULT="RESULT" THEN EXIT 5
  37. TempFileName=RESULT
  38.  
  39. /* Check wether Filer is running. */
  40.  
  41. IF ~SHOW('Ports','FilerRexx') THEN
  42.  DO
  43.   'EXEC Run >NIL: Filer >NIL:'
  44.   'EXEC SYS:Rexxc/WaitForPort FilerRexx'
  45.  
  46.   IF ~SHOW('Ports','FilerRexx') THEN EXIT 10
  47.  END
  48.  
  49. /* Load directory and select file. */
  50.  
  51. P=LASTPOS("/",FileName)
  52. IF P=0 THEN
  53.  DO
  54.   P=POS(":",TempFileName)
  55.   Dirname=LEFT(TempFileName,P)
  56.   Filename=SUBSTR(TempFileName,P+1)
  57.  END
  58. ELSE
  59.  DO
  60.   Dirname=LEFT(TempFileName,P-1)
  61.   Filename=SUBSTR(TempFileName,P+1)
  62.  END
  63.  
  64. ADDRESS 'FilerRexx'
  65. 'READSOURCEDIR' Dirname
  66. 'SELECTENTRY "'||Filename||'"'
  67.  
  68. /* Let the action begin. */
  69.  
  70. ACTION
  71.